<%Set cn=CreateObject("Adodb.Connection")
cn.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.Mappath("db.mdb")
Set rs=CreateObject("Adodb.RecordSet")%>